home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / SHOWDIR.TSL < prev    next >
Encoding:
Text File  |  1995-10-10  |  1015 b   |  34 lines

  1. % -----------------------------------------------------------------------------
  2. % Directory demonstration                              *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : SHOWDIR.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 06 Aug 1995
  10. %  Latest revision  : 06 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Easy demonstration to show a directory
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. ClearScreen
  17. Window 40,1,80,25,6,0,23,23,27," Show directory "
  18. WriteAStr 2,0,31," Esc to Abort "
  19.  
  20. Set Key=0
  21. Set CurrentDir = "C:\*.*"
  22. Repeat
  23.   Set CurrentDir=Input(1,23,41,23,31,CurrentDir)
  24.   PrintLn
  25.   If Key<>27
  26.     PrintLn " ",FindFirst(CurrentDir,32)
  27.     While IOResult=0
  28.       PrintLn " ",FindNext
  29.     EndWhile
  30.   Endif
  31. Until Key=27
  32.  
  33. RemoveWindow
  34.